      BLOCK DATA
C     ******************************************************
C     *                                                    *
C     *    BLOCK DATA 4                                    *
C     *                                                    *
C     ******************************************************
C
C     PRESET VALUES FOR NEW COMMON BLOCKS APRIL, 1978
C
      IMPLICIT REAL*8(A-H,O-Z)
      INTEGER*2 KP
      REAL*4 TC
C
      COMMON/DRGCOM/ ER(3),HUBCDA(3),HUBCP(3),UJD0,HUBF(3),HUBM(3),IDRAG
C
      COMMON/MAGCOM/ COILS(3)
C
      COMMON/ORDRAG/ ADT(6),CM(6),GL0,RC,RCM,RL1,RL1MAG,
     *               RL2,RL2MAG,XLPS,YLPS,UC(2),WC(2)
C
      COMMON/ORJACC/ IT,KP(21,8),TC(20)
C
C     PRESET VALUES FOR COMMON/DRGCOM/
C
      DATA ER/0.0D0,0.0D0,7.29211508D-5/
C
      DATA HUBCDA/3*1.0D0/
C
      DATA HUBCP/3*0.0D0/
C
      DATA IDRAG/1/
C
C     PRESET VALUES FOR COMMON/MAGCOM/
C
      DATA COILS/3*0.0D0/
C
C     PRESET VALUES FOR COMMON/ORDRAG/
C
C     THERMAL DIFFUSION COEFFICIENTS
C
      DATA ADT/2*0.0D0,-0.38D0,3*0.0D0/
C
C     MASSES OF ATMOSPHERIC CONSTITUENTS GM/MOLE
C
      DATA CM/28.0134D0,39.948D0,4.0026D0,31.9988D0,15.9994D0,1.00797D0/
C
C     MEAN SURFACE GRAVITY M/SEC**2
C
      DATA GL0/9.80665D0/
C
C
C     UNIVERSAL GAS CONSTANT ERGS/DEGREE KELVIN/MOLE
      DATA RC/8.31432D0/
C
C     AVERAGE EARTH RADIUS IN KM
C
      DATA RCM/6356.766D0/
C
C     INITIAL APPROXIMATIONS TO RL1,RL2,XLPS,YLPS
C
      DATA RL1,RL2,XLPS,YLPS/166.0D0,61.0D0,99.0D0,28.0D0/
C
C     PRESET VALUES FOR COMMON/ORJACC/
C
C      MODIFIED JULIAN DATE OF FIRST TIME ON JACCHIA-ROBERTS FILE
C
      DATA IT/10300/
C
C     MODIFIED JULIAN DATE OF 10300 CORESSPONDS TO 19 MARCH, 1969
C
      DATA KP/
     1 10,53,33,27,20,80,27,33,23,10,10,37,40,17,27,53,23,30,30,37,33,
     2 10,37,27,37,10,63,30,17,23,17,13,30,30,27,17,30,30,20,23,47,23,
     3 30,33,37,23,17,67,50,17,20,17,20,20,17,17,13,20,27,33,23,43,13,
     4 17,23,27,20,23,70,40,30,13,13,20,17,27,33,27,17,20,17,07,20,13,
     5 17,17,23,27,23,53,43,23,20,17,40,10,27,27,27,17,27,13,17,23,17,
     6 13,37,10,23,37,33,23,23,10,27,37,30,33,37,40,27,17,23,23,30,13,
     7 47,30,20,27,67,17,23,17,03,13,20,33,33,57,43,37,30,20,33,43,13,
     8 53,40,37,13,80,17,37,23,03,10,40,47,23,50,37,30,23,27,37,20,27/
C
      DATA TC/
     1 969.155E0,975.656E0,997.421E0,986.457E0,964.164E0,
     2 950.771E0,932.318E0,945.500E0,927.806E0,927.401E0,
     3 933.008E0,933.994E0,937.223E0,940.986E0,943.967E0,
     4 940.798E0,923.083E0,919.701E0,901.322E0,889.441E0/
C
C
      END
